6.1.13 (d+e x)^m sinh(a+b x+c x^2)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    209787,       4582]
NotebookOptionsPosition[    202866,       4393]
NotebookOutlinePosition[    204667,       4449]
CellTagsIndexPosition[    204624,       4446]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "n"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, {3.5758481568727927`*^9, 3.5758481609227986`*^9}, 
   3.6857579432357635`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.5601904604844384`*^9, 3.5601904615608406`*^9}, 3.560216297543895*^9, 
   3.5606251390716953`*^9, 3.5609763603715334`*^9, 3.5696967976344414`*^9, 
   3.6857579671371307`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, 3.685757968688219*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sinh", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    FractionBox[
     SuperscriptBox["\[ExponentialE]", "z"], "2"], "-", 
    FractionBox[
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "z"}]], "2"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, {3.497817065230562*^9, 
   3.4978170909905977`*^9}, {3.4990392938536587`*^9, 
   3.4990392938536587`*^9}, {3.560976986832411*^9, 3.5609769873624115`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, 3.5602044235007668`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["1", "2"]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "2"]}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "a"}], "-", 
       RowBox[{"b", " ", "x"}], "-", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.4990190905057545`*^9, 3.499019090515754*^9}, {3.499019132815813*^9, 
   3.4990191328258133`*^9}, 3.4990393338833284`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Sinh", "[", 
     RowBox[{"a_.", "+", 
      RowBox[{"b_.", "*", "x_"}], "+", 
      RowBox[{"c_.", "*", 
       RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "a"}], "-", 
          RowBox[{"b", "*", "x"}], "-", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, {
   3.499019090515754*^9, 3.499019090515754*^9}, {3.4990191328258133`*^9, 
   3.4990191328258133`*^9}, 3.4990392670996113`*^9, 3.560204426880771*^9, {
   3.560977012212446*^9, 3.5609770316024733`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Cosh", "[", 
     RowBox[{"a_.", "+", 
      RowBox[{"b_.", "*", "x_"}], "+", 
      RowBox[{"c_.", "*", 
       RowBox[{"x_", "^", "2"}]}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}], " ", 
    "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "a"}], "-", 
          RowBox[{"b", "*", "x"}], "-", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, {
   3.497921614870183*^9, 3.4979216450562363`*^9}, 3.4979846288461866`*^9, {
   3.4991141172618694`*^9, 3.4991141331718917`*^9}, 3.4991230359709473`*^9, {
   3.499123205791185*^9, 3.499123212941195*^9}, 3.5602044306307764`*^9, {
   3.5609770146424494`*^9, 3.5609770440124907`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"n", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, {3.569696802106697*^9, 
   3.5696968038047943`*^9}, 3.6857579693352566`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.498240539593211*^9, 
   3.498240539593211*^9}, {3.499019966826981*^9, 3.4990199736969905`*^9}, {
   3.5602050455691376`*^9, 3.5602050603491583`*^9}, {3.5606282704160795`*^9, 
   3.5606282712960806`*^9}, {3.569696820179731*^9, 3.5696968213477974`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"TrigReduce", "[", 
        SuperscriptBox[
         RowBox[{"Sinh", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}], "+", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "2"]}]}], "]"}], "n"], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.4990190905057545`*^9, 3.499019090515754*^9}, {3.499019132815813*^9, 
   3.4990191328258133`*^9}, 3.4990393338833284`*^9, {3.5602049387189875`*^9, 
   3.560204965359025*^9}, 3.560628206175989*^9, {3.5606282758860865`*^9, 
   3.5606282791260915`*^9}, {3.569696822498863*^9, 3.5696968233709135`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandTrigReduce", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, {
   3.499019090515754*^9, 3.499019090515754*^9}, {3.4990191328258133`*^9, 
   3.4990191328258133`*^9}, 3.4990392670996113`*^9, 3.560204426880771*^9, {
   3.5602050711091733`*^9, 3.560205073709177*^9}, {3.5602051056792216`*^9, 
   3.5602051214092436`*^9}, {3.5602066423363757`*^9, 
   3.5602066976664534`*^9}, {3.560206787526579*^9, 3.5602067898565826`*^9}, {
   3.5602070194669037`*^9, 3.5602070198769045`*^9}, {3.5606282828760967`*^9, 
   3.5606282934361115`*^9}, {3.560918457546196*^9, 3.560918501429706*^9}, {
   3.56091879836769*^9, 3.5609187986817083`*^9}, {3.5696968245799828`*^9, 
   3.569696830625328*^9}, {3.715212335956047*^9, 3.715212340967334*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandTrigReduce", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, {
   3.499019090515754*^9, 3.499019090515754*^9}, {3.4990191328258133`*^9, 
   3.4990191328258133`*^9}, 3.4990392670996113`*^9, 3.560204426880771*^9, {
   3.5602050711091733`*^9, 3.560205073709177*^9}, {3.5602051056792216`*^9, 
   3.560205132449259*^9}, {3.5602067084264684`*^9, 3.5602067127164745`*^9}, {
   3.5602067950265894`*^9, 3.560206800016597*^9}, 3.5602070268869143`*^9, {
   3.5606282965661163`*^9, 3.560628305936129*^9}, {3.5609186069287405`*^9, 
   3.5609186106589537`*^9}, {3.560918801963896*^9, 3.5609188021629066`*^9}, {
   3.569696831563382*^9, 3.5696968368496847`*^9}, 3.715212347812725*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sinh", "[", "v", "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"v", "\[Equal]", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "2"]}]}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569431211483277*^9, 3.569431211683277*^9}, 
   3.5757865832172976`*^9, {3.5763466442642536`*^9, 3.5763467017043343`*^9}, {
   3.576346758794414*^9, 3.576346766914425*^9}, 3.576347228875072*^9, {
   3.576347356585251*^9, 3.576347356585251*^9}, 3.576347535385501*^9, 
   3.5763481947764244`*^9, {3.5764295661539736`*^9, 3.5764296212740507`*^9}, 
   3.576431204976268*^9, 3.685757969888288*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.574710513759987*^9, 
   3.5747105160099897`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"v", "\[Equal]", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "2"]}]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.576346777874441*^9, 3.576346777874441*^9}, {
   3.576347358695254*^9, 3.576347358695254*^9}, {3.5764296257740574`*^9, 
   3.5764296257740574`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sinh", "[", "v", "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693527582739587`*^9, 3.569352760173961*^9}, {3.5763467856944513`*^9, 
   3.5763467984944696`*^9}, {3.5763472293650727`*^9, 3.5763472298050737`*^9}, 
   3.576347361605258*^9, {3.576347546085516*^9, 3.576347572945554*^9}, {
   3.5763481947964244`*^9, 3.576348194806424*^9}, {3.5764296743441253`*^9, 
   3.576429675604127*^9}, {3.5764312056362686`*^9, 3.5764312065062704`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", "v_", "]"}], "^", "n_."}], ",", "x_Symbol"}], "]"}],
   " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sinh", "[", 
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"v", ",", "x"}], "]"}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"QuadraticQ", "[", 
     RowBox[{"v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"QuadraticMatchQ", "[", 
      RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763472306250744`*^9, 3.5763472382350855`*^9}, {
   3.576347637505644*^9, 3.5763477066457405`*^9}, 3.5763480670462456`*^9, {
   3.5763481948264246`*^9, 3.5763482028364353`*^9}, {3.5764296403440776`*^9, 
   3.576429657654102*^9}, {3.576429889124426*^9, 3.576429890034427*^9}, {
   3.576431210256275*^9, 3.5764312147262816`*^9}, {3.7197160423074293`*^9, 
   3.719716047422722*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", "v_", "]"}], "^", "n_."}], ",", "x_Symbol"}], "]"}],
   " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"v", ",", "x"}], "]"}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"QuadraticQ", "[", 
     RowBox[{"v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"QuadraticMatchQ", "[", 
      RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763472306250744`*^9, 3.5763472382350855`*^9}, {
   3.576347637505644*^9, 3.5763477066457405`*^9}, 3.5763480670462456`*^9, {
   3.5763481948264246`*^9, 3.5763482028364353`*^9}, {3.5764296403440776`*^9, 
   3.576429689774147*^9}, {3.5764298841344185`*^9, 3.57642988506442*^9}, {
   3.5764312237662945`*^9, 3.5764312274062996`*^9}, 3.719716053275057*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415537810148993`*^9}, 
   3.5416284381647997`*^9, {3.541628483224863*^9, 3.5416284996148853`*^9}, 
   3.5416916610098467`*^9, 3.541691707943531*^9, {3.560190466506049*^9, 
   3.560190467582451*^9}, 3.560216297853895*^9, 3.5606251460517054`*^9, 
   3.560976376611556*^9, 3.560976467121683*^9, 3.569696839378829*^9, 
   3.6857579704183187`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415537810148993`*^9}, 
   3.5416284381647997`*^9, {3.541628483224863*^9, 3.5416284996148853`*^9}, 
   3.5416916610098467`*^9, 3.541691707943531*^9, {3.560190466506049*^9, 
   3.560190467582451*^9}, 3.560216297853895*^9, 3.5606251460517054`*^9, 
   3.560976376611556*^9, 3.560976467121683*^9, {3.5609765402617855`*^9, 
   3.560976547221795*^9}, 3.6857579708993464`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"m", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415537810148993`*^9}, 
   3.5416284381647997`*^9, {3.541628483224863*^9, 3.5416284996148853`*^9}, 
   3.5416916610098467`*^9, 3.541691707943531*^9, {3.560190466506049*^9, 
   3.560190467582451*^9}, 3.560216297853895*^9, 3.5606251460517054`*^9, 
   3.560976376611556*^9, 3.560976467121683*^9, {3.5609765402617855`*^9, 
   3.560976547221795*^9}, 3.560977667803364*^9, 3.5609778887836733`*^9, {
   3.569697378506665*^9, 3.5696973791797037`*^9}, 3.6857579713623724`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.5601904604844384`*^9, 3.5601904615608406`*^9}, {3.5605383470002007`*^9, 
   3.560538347490202*^9}, {3.5605392059014034`*^9, 3.5605392060714035`*^9}, {
   3.566609914235198*^9, 3.5666099207652073`*^9}, {3.566609981135292*^9, 
   3.566610005625326*^9}, {3.567624450517342*^9, 3.567624492871416*^9}, 
   3.5676248407332277`*^9, 3.567624925971777*^9, 3.567625051739198*^9, 
   3.5696974144917235`*^9, 3.6857579718414*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"b", " ", "e"}], "-", 
        RowBox[{"2", "c", " ", "d"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.5609775764432364`*^9, 
   3.560977595013262*^9}, 3.5609776689133654`*^9, 3.5609779843238072`*^9, 
   3.6857579722914257`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"b", " ", "e"}], "-", 
    RowBox[{"2", "c", " ", "d"}]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.4978172319407954`*^9, 3.4978172425808105`*^9}, {3.560977189802695*^9, 
   3.560977192212698*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}], ")"}], 
   RowBox[{"Sinh", "[", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "2"]}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"e", " ", 
       RowBox[{"Cosh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "2"]}]}], "]"}]}], 
      RowBox[{"2", " ", "c"}]]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 
   3.497810026705499*^9}, 3.4978168734802933`*^9, 3.497816906020339*^9, {
   3.4978172634508395`*^9, 3.4978172755208564`*^9}, 3.499019090535754*^9, 
   3.4990191328258133`*^9, 3.4990394019930487`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"e", "*", 
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 
   3.497816883330307*^9, 3.497817209510764*^9, 3.499019090535754*^9, 
   3.4990191328258133`*^9, 3.4990393993566437`*^9, 3.706140966977376*^9, {
   3.7152123541390867`*^9, 3.715212354809125*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"e", "*", 
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}], "+", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 
   3.497816883330307*^9, 3.497817209510764*^9, {3.497921614885783*^9, 
   3.497921645071836*^9}, 3.4979847657676272`*^9, {3.4991141172718697`*^9, 
   3.4991141331918917`*^9}, 3.4991232702712755`*^9, 3.7061409669873757`*^9, 
   3.715212359154374*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"b", " ", "e"}], "-", 
        RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.5609775764432364`*^9, 
   3.560977595013262*^9}, {3.560977671403369*^9, 3.5609776733433714`*^9}, {
   3.5609777145834293`*^9, 3.5609777145834293`*^9}, {3.560978009153842*^9, 
   3.560978032503875*^9}, {3.569697430643647*^9, 3.569697430901662*^9}, 
   3.685757972737451*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"b", " ", "e"}], "-", 
    RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 
   3.497817350040961*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"e", " ", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}]}], 
       RowBox[{"2", " ", "c"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"b", " ", "e"}], "-", 
     RowBox[{"2", " ", "c", " ", "d"}]}], 
    RowBox[{"2", " ", "c"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.49781732084092*^9, 3.4978173345809393`*^9}, {3.499019090535754*^9, 
   3.499019090535754*^9}, 3.4990191328358135`*^9, 3.4990394282010946`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "*", 
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "*", "e"}], "-", 
        RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"Sinh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, {3.4990190905457544`*^9, 
   3.4990190905457544`*^9}, 3.4990191328358135`*^9, 3.499039424706688*^9, 
   3.5609772393327637`*^9, 3.5609773068828588`*^9, 3.7061410111274376`*^9, {
   3.715212363560626*^9, 3.71521236381464*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "*", 
     RowBox[{
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "*", "e"}], "-", 
        RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"Cosh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, {3.497921614901383*^9, 
   3.4979216450874357`*^9}, 3.497984772569239*^9, {3.4991141172718697`*^9, 
   3.4991141331918917`*^9}, 3.499123287061299*^9, 3.560977240812766*^9, 
   3.5609773109628644`*^9, 3.706141011137438*^9, 3.715212369163946*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.5601904604844384`*^9, 3.5601904615608406`*^9}, {3.5605383470002007`*^9, 
   3.560538347490202*^9}, {3.5605392059014034`*^9, 3.5605392060714035`*^9}, {
   3.566609914235198*^9, 3.5666099207652073`*^9}, {3.566609981135292*^9, 
   3.566610005625326*^9}, {3.567624450517342*^9, 3.567624492871416*^9}, 
   3.5676248407332277`*^9, {3.567624938264599*^9, 3.5676249780758686`*^9}, 
   3.567625054906004*^9, 3.56969746635469*^9, 3.685757973190477*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "e"}], "-", 
         RowBox[{"2", "c", " ", "d"}]}], "\[Equal]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.5609775764432364`*^9, 
   3.560977595013262*^9}, 3.5609776490233374`*^9, {3.560977720133437*^9, 
   3.560977720133437*^9}, 3.560977930183731*^9, {3.5609779853838086`*^9, 
   3.5609779869038105`*^9}, {3.5609780724539304`*^9, 3.560978074003933*^9}, {
   3.5696974909960995`*^9, 3.569697491237113*^9}, {3.5696975908868127`*^9, 
   3.5696975908868127`*^9}, 3.685757973638502*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "e"}], "-", 
     RowBox[{"2", "c", " ", "d"}]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 
   3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 
   3.497817518021196*^9}, {3.5609772053127165`*^9, 3.5609772053127165`*^9}, {
   3.560978078223939*^9, 3.560978078223939*^9}, {3.5696975933259525`*^9, 
   3.5696975933259525`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"e", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"m", "-", "1"}]], " ", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}]}], 
       RowBox[{"2", " ", "c"}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["e", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{"2", " ", "c"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 
   3.4978174870611525`*^9}, {3.4978452139579735`*^9, 3.497845227327992*^9}, 
   3.4990190905457544`*^9, {3.4990191328358135`*^9, 3.4990191328358135`*^9}, {
   3.4990394572795453`*^9, 3.4990394634883566`*^9}, {3.560977784273527*^9, 
   3.5609777875835314`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"e", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 
   3.4990190905457544`*^9, {3.4990191328358135`*^9, 3.4990191328458138`*^9}, {
   3.4990394488867307`*^9, 3.499039453753939*^9}, 3.560977242722769*^9, 
   3.5609773174128733`*^9, {3.5609780540539045`*^9, 3.5609780561839075`*^9}, 
   3.569697615122199*^9, 3.706140967027376*^9, {3.715212374491251*^9, 
   3.715212382351701*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"e", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, {
   3.497921614932583*^9, 3.497921645118636*^9}, 3.497984780150852*^9, {
   3.4991141172818694`*^9, 3.499114133201892*^9}, 3.4991233185413427`*^9, 
   3.560977246902775*^9, 3.5609773216328793`*^9, {3.5609780583139105`*^9, 
   3.560978059963913*^9}, {3.569697608754835*^9, 3.56969761076495*^9}, 
   3.7061409670473757`*^9, 3.7152123888000693`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "e"}], "-", 
         RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.5609775764432364`*^9, 
   3.560977595013262*^9}, 3.5609776446533318`*^9, {3.5609777264234457`*^9, 
   3.5609777264234457`*^9}, 3.5609779428637495`*^9, {3.560978010203843*^9, 
   3.5609780338738766`*^9}, {3.5609781762740755`*^9, 
   3.5609781778940783`*^9}, {3.5696976367144337`*^9, 3.5696976367144337`*^9}, 
   3.6857579740785275`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "e"}], "-", 
     RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 
   3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 
   3.497817518021196*^9}, {3.497817607271321*^9, 3.4978176097513247`*^9}, {
   3.560978185604089*^9, 3.560978185604089*^9}, {3.5696976436478305`*^9, 
   3.5696976436478305`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"e", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"m", "-", "1"}]], " ", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}]}], 
       RowBox[{"2", " ", "c"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"b", " ", "e"}], "-", 
     RowBox[{"2", " ", "c", " ", "d"}]}], 
    RowBox[{"2", " ", "c"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["e", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{"2", " ", "c"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 
   3.4978174870611525`*^9}, {3.497817584611289*^9, 3.497817597891308*^9}, {
   3.4990190905457544`*^9, 3.499019090555754*^9}, {3.4990191328458138`*^9, 
   3.4990191328458138`*^9}, {3.499039512722043*^9, 3.4990395200696554`*^9}, {
   3.5609777682235045`*^9, 3.5609777783935184`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "*", "e"}], "-", 
        RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{
     RowBox[{"e", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 
   3.497817548651239*^9, {3.499019090555754*^9, 3.499019090555754*^9}, {
   3.4990191328458138`*^9, 3.4990191328558135`*^9}, 3.4990395018956237`*^9, {
   3.560977251252781*^9, 3.5609772524627824`*^9}, {3.560977326602886*^9, 
   3.5609773302628913`*^9}, {3.560978188454093*^9, 3.560978191164097*^9}, {
   3.569697646540996*^9, 3.5696976481580887`*^9}, 3.7061410111874375`*^9, {
   3.7152123981506042`*^9, 3.715212400626746*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "*", "e"}], "-", 
        RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"e", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 
   3.497817548651239*^9, {3.497921614948183*^9, 3.4979216451342363`*^9}, 
   3.49798479001007*^9, {3.499114117291869*^9, 3.4991141332118917`*^9}, 
   3.499123341571375*^9, {3.560977254212785*^9, 3.5609772557827873`*^9}, {
   3.5609773347128973`*^9, 3.5609773380729027`*^9}, {3.5609781933341*^9, 
   3.5609781953941026`*^9}, 3.569697651543282*^9, 3.7061410111974373`*^9, 
   3.715212405835044*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"m", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415537810148993`*^9}, 
   3.5416284381647997`*^9, {3.541628483224863*^9, 3.5416284996148853`*^9}, 
   3.5416916610098467`*^9, 3.541691707943531*^9, {3.560190466506049*^9, 
   3.560190467582451*^9}, 3.560216297853895*^9, 3.5606251460517054`*^9, 
   3.560976376611556*^9, 3.560976467121683*^9, {3.5609765402617855`*^9, 
   3.560976547221795*^9}, 3.560977667803364*^9, 3.5609778887836733`*^9, {
   3.5696975139304113`*^9, 3.569697536488701*^9}, 3.685757974535554*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "e"}], "-", 
         RowBox[{"2", "c", " ", "d"}]}], "\[Equal]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.5609775764432364`*^9, 
   3.560977595013262*^9}, 3.5609776401733255`*^9, {3.560977732413454*^9, 
   3.560977732413454*^9}, 3.560977931563733*^9, {3.5609780044038353`*^9, 
   3.560978004593836*^9}, {3.560978112173986*^9, 3.560978120683998*^9}, {
   3.569697525384066*^9, 3.56969752562808*^9}, {3.5696976670341682`*^9, 
   3.5696976670341682`*^9}, 3.685757975005581*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "e"}], "-", 
     RowBox[{"2", "c", " ", "d"}]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 
   3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 
   3.497817518021196*^9}, {3.4978176606313953`*^9, 3.497817661711397*^9}, {
   3.5609772104527235`*^9, 3.5609772104527235`*^9}, {3.5609781261540055`*^9, 
   3.5609781261540055`*^9}, {3.5696976720624557`*^9, 3.5696976720624557`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "c"}], 
    RowBox[{
     SuperscriptBox["e", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "2"}]], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 
   3.4978174870611525`*^9}, 3.497817687031432*^9, {3.4978452447580166`*^9, 
   3.497845253888029*^9}, {3.497845336788145*^9, 3.497845345858158*^9}, {
   3.499019090555754*^9, 3.4990190905657544`*^9}, 3.4990191328558135`*^9, {
   3.560977745613473*^9, 3.560977748753477*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"c", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"e", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 
   3.497817656111389*^9, {3.4990190905657544`*^9, 3.4990190905657544`*^9}, 
   3.4990191328558135`*^9, 3.499039550614509*^9, 3.5609772589527917`*^9, 
   3.5609773429229093`*^9, {3.560978130044011*^9, 3.5609781317540135`*^9}, 
   3.5696977039112773`*^9, 3.706140967097376*^9, {3.715212409732267*^9, 
   3.7152124172496967`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{"2", "*", 
     RowBox[{"c", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"e", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 
   3.497817656111389*^9, {3.4979216149793835`*^9, 3.497921645149836*^9}, 
   3.497984798652485*^9, {3.4991141173018694`*^9, 3.4991141332118917`*^9}, 
   3.499123368061412*^9, 3.560977260572794*^9, 3.560977348032916*^9, {
   3.560978133844016*^9, 3.5609781355640187`*^9}, {3.569697699114003*^9, 
   3.5696977005630856`*^9}, 3.706140967107376*^9, 3.71521242343305*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "e"}], "-", 
         RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, {3.5609775764432364`*^9, 
   3.560977595013262*^9}, 3.5609776360733194`*^9, {3.5609777386134634`*^9, 
   3.5609777386134634`*^9}, 3.5609779439937506`*^9, {3.5609780350738783`*^9, 
   3.560978035233878*^9}, {3.5609782070341187`*^9, 3.560978225314144*^9}, {
   3.569697682297041*^9, 3.569697682297041*^9}, 3.6857579754566064`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "e"}], "-", 
     RowBox[{"2", "c", " ", "d"}]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 
   3.497817350040961*^9}, 3.497817472421132*^9, {3.497817508601183*^9, 
   3.497817518021196*^9}, {3.497817607271321*^9, 3.4978176097513247`*^9}, {
   3.497817752511524*^9, 3.497817753781526*^9}, {3.5609782308641524`*^9, 
   3.5609782308641524`*^9}, {3.569697687101316*^9, 3.569697687101316*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"b", " ", "e"}], "-", 
     RowBox[{"2", " ", "c", " ", "d"}]}], 
    RowBox[{
     SuperscriptBox["e", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "c"}], 
    RowBox[{
     SuperscriptBox["e", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "2"}]], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.49781732084092*^9, 3.4978173345809393`*^9}, {3.4978174657811227`*^9, 
   3.4978174870611525`*^9}, {3.497817584611289*^9, 3.497817597891308*^9}, {
   3.497817735711501*^9, 3.4978177468615165`*^9}, {3.4978453784582033`*^9, 
   3.497845389358219*^9}, {3.4990190905657544`*^9, 3.4990190905657544`*^9}, {
   3.4990191328558135`*^9, 3.4990191328558135`*^9}, {3.5609777533234835`*^9, 
   3.5609777610634947`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "*", "e"}], "-", 
        RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"e", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"c", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"e", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 
   3.497817548651239*^9, 3.497817648381378*^9, 3.497817703281455*^9, {
   3.499019090575754*^9, 3.499019090575754*^9}, {3.4990191328658133`*^9, 
   3.4990191328658133`*^9}, 3.4990395795837603`*^9, {3.560977265652801*^9, 
   3.5609772674028034`*^9}, {3.5609773552829266`*^9, 
   3.5609773598029327`*^9}, {3.560978233614156*^9, 3.5609782457241735`*^9}, {
   3.56969768979447*^9, 3.5696976915385695`*^9}, 3.7061410112474375`*^9, {
   3.715212433306615*^9, 3.715212435232725*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "*", "e"}], "-", 
        RowBox[{"2", "*", "c", "*", "d"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"e", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", 
    "-", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"c", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"e", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", "e"}], "-", 
       RowBox[{"2", "*", "c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, 
   3.4978172025607543`*^9, 3.4978172990008893`*^9, 3.497817445141094*^9, 
   3.497817548651239*^9, 3.497817648381378*^9, 3.497817703281455*^9, {
   3.497921614994983*^9, 3.497921645181036*^9}, 3.4979848055788975`*^9, {
   3.4991141173118696`*^9, 3.4991141332218914`*^9}, 3.4991234226914883`*^9, {
   3.560977269142806*^9, 3.5609772708028083`*^9}, {3.5609773650629396`*^9, 
   3.5609773697429466`*^9}, {3.560978249844179*^9, 3.560978251364181*^9}, 
   3.5696976952347813`*^9, 3.7061410112574377`*^9, 3.7152124410080557`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.5666096059647665`*^9, 3.5666096144247785`*^9}, 
   3.5666100086853304`*^9, {3.5764301245247555`*^9, 3.576430125024756*^9}, 
   3.57643082771574*^9, {3.576430901395843*^9, 3.5764309124758587`*^9}, {
   3.576432666498314*^9, 3.5764326768383284`*^9}, {3.5764327958384953`*^9, 
   3.5764327960484953`*^9}, {3.5764329075286517`*^9, 3.576432908318653*^9}, 
   3.5764330695588784`*^9, 3.6857579759096327`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, 3.498073933150736*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
   RowBox[{"Sinh", "[", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "2"]}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
       RowBox[{"Sinh", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "2"]}]}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.49807390709869*^9, 
   3.4980739228859177`*^9}, {3.576430129134762*^9, 3.5764301348447695`*^9}, {
   3.5764308295557423`*^9, 3.576430831555745*^9}, {3.5764309275558796`*^9, 
   3.5764309291458817`*^9}, {3.5764326785683312`*^9, 3.576432680068333*^9}, {
   3.5764327988684998`*^9, 3.5764328019485035`*^9}, {3.5764330711088805`*^9, 
   3.5764330725988827`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.5764301452447844`*^9, 
   3.5764301602848053`*^9}, {3.5764308352157507`*^9, 
   3.5764308444357634`*^9}, {3.5764309541559167`*^9, 3.576430980575954*^9}, {
   3.5764326819483356`*^9, 3.576432683548338*^9}, {3.5764327792084723`*^9, 
   3.57643282765854*^9}, {3.5764330742988853`*^9, 3.5764330755688868`*^9}, 
   3.7123383463433323`*^9, 3.7155502545209208`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{"Cosh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.5764301452447844`*^9, 
   3.5764301602848053`*^9}, {3.5764308352157507`*^9, 
   3.5764308538157763`*^9}, {3.5764309652359324`*^9, 
   3.5764309868259625`*^9}, {3.576432685548341*^9, 3.5764326888483458`*^9}, {
   3.576432782988477*^9, 3.576432789608486*^9}, {3.576432830678544*^9, 
   3.5764328318785458`*^9}, {3.5764330781288905`*^9, 3.576433079638892*^9}, 
   3.712338346352333*^9, 3.715550254530922*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Sinh", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"n", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.5696968408039103`*^9, 3.5696968439400897`*^9}, 3.685757976351658*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.498240539593211*^9, 
   3.498240539593211*^9}, {3.499019966826981*^9, 3.4990199736969905`*^9}, {
   3.5602050455691376`*^9, 3.5602050603491583`*^9}, {3.5606285748365054`*^9, 
   3.560628575516506*^9}, {3.569696847508294*^9, 3.56969684795632*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
       RowBox[{"TrigReduce", "[", 
        SuperscriptBox[
         RowBox[{"Sinh", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}], "+", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "2"]}]}], "]"}], "n"], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497816875700297*^9, 3.497816927160369*^9, {
   3.4990190905057545`*^9, 3.499019090515754*^9}, {3.499019132815813*^9, 
   3.4990191328258133`*^9}, 3.4990393338833284`*^9, {3.5602049387189875`*^9, 
   3.560204965359025*^9}, {3.5602053000394936`*^9, 3.560205308739506*^9}, {
   3.5606285803065133`*^9, 3.5606285878365235`*^9}, {3.560628814306841*^9, 
   3.560628816806844*^9}, 3.5606288484668884`*^9, {3.569696848771366*^9, 
   3.569696850898488*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Sinh", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandTrigReduce", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, {
   3.499019090515754*^9, 3.499019090515754*^9}, {3.4990191328258133`*^9, 
   3.4990191328258133`*^9}, 3.4990392670996113`*^9, 3.560204426880771*^9, {
   3.5602050711091733`*^9, 3.560205073709177*^9}, {3.5602051056792216`*^9, 
   3.5602051214092436`*^9}, {3.5602053149995146`*^9, 
   3.5602053393395486`*^9}, {3.5602067393165116`*^9, 3.5602067600565405`*^9}, 
   3.5602070293669176`*^9, {3.560628593056531*^9, 3.560628603296545*^9}, {
   3.560628664376631*^9, 3.5606287299967227`*^9}, {3.5606287634067698`*^9, 
   3.560628770176779*^9}, 3.5609186694083138`*^9, {3.5609187405643835`*^9, 
   3.5609187602255087`*^9}, {3.5696968529086027`*^9, 
   3.5696968572818527`*^9}, {3.715212447502427*^9, 3.7152124525347147`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandTrigReduce", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978168901103168`*^9, {
   3.499019090515754*^9, 3.499019090515754*^9}, {3.4990191328258133`*^9, 
   3.4990191328258133`*^9}, 3.4990392670996113`*^9, 3.560204426880771*^9, {
   3.5602050711091733`*^9, 3.560205073709177*^9}, {3.5602051056792216`*^9, 
   3.5602051214092436`*^9}, {3.5602053149995146`*^9, 3.560205349819563*^9}, {
   3.560206768816553*^9, 3.5602067740965605`*^9}, 3.56020703139692*^9, {
   3.560628607146551*^9, 3.560628617356565*^9}, {3.5606286664366336`*^9, 
   3.560628733326727*^9}, {3.560628773866784*^9, 3.560628779536792*^9}, {
   3.560918673677558*^9, 3.56091867808581*^9}, {3.560918770489095*^9, 
   3.5609187746433325`*^9}, {3.569696858219907*^9, 3.5696968623061404`*^9}, 
   3.7152124576500072`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "m"], 
     SuperscriptBox[
      RowBox[{"Sinh", "[", "v", "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"u", "\[Equal]", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}]}], " ", "\[And]", " ", 
       RowBox[{"v", "\[Equal]", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}], "+", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "2"]}]}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569431211483277*^9, 3.569431211683277*^9}, 
   3.5757865832172976`*^9, {3.5763466442642536`*^9, 3.5763467017043343`*^9}, {
   3.576346758794414*^9, 3.576346766914425*^9}, 3.576347228875072*^9, {
   3.576347356585251*^9, 3.576347356585251*^9}, 3.576347535385501*^9, 
   3.576347744605794*^9, {3.5763478278559103`*^9, 3.5763478626859593`*^9}, 
   3.5763481948364244`*^9, {3.576429739934217*^9, 3.5764297503342314`*^9}, {
   3.576429789854287*^9, 3.5764298183543267`*^9}, 3.5764313195864286`*^9, 
   3.6857579768546867`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.574710513759987*^9, 
   3.5747105160099897`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"u", "\[Equal]", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]}], " ", "\[And]", " ", 
   RowBox[{"v", "\[Equal]", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "2"]}]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.576346777874441*^9, 3.576346777874441*^9}, {
   3.576347358695254*^9, 3.576347358695254*^9}, {3.576347872015972*^9, 
   3.576347872015972*^9}, {3.57642982779434*^9, 3.57642982779434*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["u", "m"], 
   SuperscriptBox[
    RowBox[{"Sinh", "[", "v", "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
       SuperscriptBox[
        RowBox[{"Sinh", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693527582739587`*^9, 3.569352760173961*^9}, {3.5763467856944513`*^9, 
   3.5763467984944696`*^9}, {3.5763472293650727`*^9, 3.5763472298050737`*^9}, 
   3.576347361605258*^9, {3.576347546085516*^9, 3.576347572945554*^9}, {
   3.5763477469757977`*^9, 3.5763477487858*^9}, 3.576347857725952*^9, {
   3.5763481948564243`*^9, 3.5763481948664246`*^9}, {3.576429752204234*^9, 
   3.576429753584236*^9}, {3.5764313204264297`*^9, 3.5764313209364305`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Sinh", "[", "v_", "]"}], "^", "n_."}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"u", ",", "x"}], "]"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"Sinh", "[", 
        RowBox[{"ExpandToSum", "[", 
         RowBox[{"v", ",", "x"}], "]"}], "]"}], "^", "n"}]}], ",", "x"}], 
    "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"m", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"QuadraticQ", "[", 
     RowBox[{"v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"LinearMatchQ", "[", 
       RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
      RowBox[{"QuadraticMatchQ", "[", 
       RowBox[{"v", ",", "x"}], "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763472306250744`*^9, 3.5763472382350855`*^9}, {
   3.576347637505644*^9, 3.5763477066457405`*^9}, {3.5763477548258085`*^9, 
   3.576347812475889*^9}, {3.5763478874559937`*^9, 3.5763479149760323`*^9}, 
   3.5763480698162494`*^9, {3.576348194886424*^9, 3.5763482066464405`*^9}, 
   3.5764285193025084`*^9, {3.576429757154241*^9, 3.576429762104248*^9}, {
   3.576429832564347*^9, 3.576429837894354*^9}, 3.576429872874403*^9, {
   3.576431321436431*^9, 3.5764313220364323`*^9}, 3.7197160582693424`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Cosh", "[", "v_", "]"}], "^", "n_."}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"u", ",", "x"}], "]"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"Cosh", "[", 
        RowBox[{"ExpandToSum", "[", 
         RowBox[{"v", ",", "x"}], "]"}], "]"}], "^", "n"}]}], ",", "x"}], 
    "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"m", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"QuadraticQ", "[", 
     RowBox[{"v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"LinearMatchQ", "[", 
       RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
      RowBox[{"QuadraticMatchQ", "[", 
       RowBox[{"v", ",", "x"}], "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763472306250744`*^9, 3.5763472382350855`*^9}, {
   3.576347637505644*^9, 3.5763477066457405`*^9}, {3.5763477548258085`*^9, 
   3.576347812475889*^9}, {3.5763478874559937`*^9, 3.5763479149760323`*^9}, 
   3.5763480698162494`*^9, {3.576348194886424*^9, 3.5763482066464405`*^9}, 
   3.5764285193025084`*^9, {3.576429757154241*^9, 3.576429762104248*^9}, {
   3.576429832564347*^9, 3.576429837894354*^9}, 3.576429872874403*^9, {
   3.576429931934486*^9, 3.5764299379244943`*^9}, {3.576431326346438*^9, 
   3.57643132790644*^9}, 3.7197160610305004`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[
     StyleBox[
      RowBox[{
       "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
        "form", " ", "(", "d", "+", "e", " ", "x", ")", "^", "m", " ", "sinh",
         "(", "a", "+", "b", " ", "x", "+", "c", " ", "x", "^", "2", ")", "^",
         "n"}], FontFamily -> "Arial"]], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2246, 43, 45, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2816, 67, 2126, 38, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[4967, 109, 3508, 57, 53, "Subsubtitle"],
Cell[8478, 168, 223, 3, 67, "Subsubsection"],
Cell[8704, 173, 677, 17, 76, "Subsubsection"],
Cell[9384, 192, 884, 12, 47, "Subsubsection"],
Cell[10271, 206, 2123, 49, 114, "Subsubtitle"],
Cell[12397, 257, 771, 11, 67, "Subsubsection"],
Cell[13171, 270, 1632, 46, 202, "Code"],
Cell[14806, 318, 1712, 47, 222, "Code"],
Cell[16521, 367, 89, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[16647, 374, 3788, 65, 53, "Subsubtitle"],
Cell[20438, 441, 223, 3, 67, "Subsubsection"],
Cell[20664, 446, 1364, 23, 50, "Subsubsection"],
Cell[22031, 471, 2039, 41, 103, "Subsubtitle"],
Cell[24073, 514, 771, 11, 67, "Subsubsection"],
Cell[24847, 527, 1887, 44, 202, "Code"],
Cell[26737, 573, 1834, 43, 222, "Code"],
Cell[28574, 618, 89, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[28700, 625, 5310, 88, 53, "Subsubtitle"],
Cell[34013, 715, 478, 7, 35, "Subsubsection"],
Cell[34494, 724, 2863, 47, 35, "Subsubsection"],
Cell[37360, 773, 3272, 55, 53, "Subsubtitle"],
Cell[40635, 830, 771, 11, 35, "Subsubsection"],
Cell[41409, 843, 4595, 76, 104, "Code"],
Cell[46007, 921, 4568, 75, 114, "Code"],
Cell[50578, 998, 190, 4, 35, "Subsubsection"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[50817, 1008, 2383, 44, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[53225, 1056, 2410, 44, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[55660, 1104, 2670, 49, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[58355, 1157, 2457, 44, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[60837, 1205, 3971, 70, 103, "Subsubtitle"],
Cell[64811, 1277, 1073, 21, 69, "Subsubsection"],
Cell[65887, 1300, 1350, 33, 128, "Subsubtitle"],
Cell[67240, 1335, 771, 11, 67, "Subsubsection"],
Cell[68014, 1348, 1481, 41, 202, "Code"],
Cell[69498, 1391, 1535, 42, 222, "Code"],
Cell[71036, 1435, 89, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[71162, 1442, 4122, 72, 103, "Subsubtitle"],
Cell[75287, 1516, 1074, 21, 69, "Subsubsection"],
Cell[76364, 1539, 2275, 54, 128, "Subsubtitle"],
Cell[78642, 1595, 771, 11, 67, "Subsubsection"],
Cell[79416, 1608, 2134, 60, 251, "Code"],
Cell[81553, 1670, 2158, 60, 271, "Code"],
Cell[83714, 1732, 89, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[83852, 1740, 2743, 52, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[86620, 1796, 4325, 76, 103, "Subsubtitle"],
Cell[90948, 1874, 1363, 26, 69, "Subsubsection"],
Cell[92314, 1902, 2821, 69, 128, "Subsubtitle"],
Cell[95138, 1973, 771, 11, 67, "Subsubsection"],
Cell[95912, 1986, 2727, 77, 251, "Code"],
Cell[98642, 2065, 2751, 77, 271, "Code"],
Cell[101396, 2144, 89, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[101522, 2151, 4288, 76, 103, "Subsubtitle"],
Cell[105813, 2229, 1364, 26, 69, "Subsubsection"],
Cell[107180, 2257, 3418, 88, 226, "Subsubtitle"],
Cell[110601, 2347, 771, 11, 67, "Subsubsection"],
Cell[111375, 2360, 3530, 101, 300, "Code"],
Cell[114908, 2463, 3509, 101, 320, "Code"],
Cell[118420, 2566, 89, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[118570, 2575, 2691, 50, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[121286, 2629, 4340, 77, 103, "Subsubtitle"],
Cell[125629, 2708, 1435, 27, 69, "Subsubsection"],
Cell[127067, 2737, 2884, 71, 134, "Subsubtitle"],
Cell[129954, 2810, 771, 11, 67, "Subsubsection"],
Cell[130728, 2823, 2805, 80, 251, "Code"],
Cell[133536, 2905, 2854, 81, 271, "Code"],
Cell[136393, 2988, 89, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[136519, 2995, 4300, 76, 103, "Subsubtitle"],
Cell[140822, 3073, 1430, 27, 69, "Subsubsection"],
Cell[142255, 3102, 3601, 94, 232, "Subsubtitle"],
Cell[145859, 3198, 771, 11, 67, "Subsubsection"],
Cell[146633, 3211, 3745, 108, 300, "Code"],
Cell[150381, 3321, 3728, 108, 320, "Code"],
Cell[154112, 3431, 89, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[154250, 3439, 3669, 61, 103, "Subsubtitle"],
Cell[157922, 3502, 1033, 14, 67, "Subsubsection"],
Cell[158958, 3518, 1952, 44, 103, "Subsubtitle"],
Cell[160913, 3564, 771, 11, 67, "Subsubsection"],
Cell[161687, 3577, 1889, 46, 202, "Code"],
Cell[163579, 3625, 1936, 47, 222, "Code"],
Cell[165518, 3674, 89, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[165656, 3682, 3859, 68, 53, "Subsubtitle"],
Cell[169518, 3752, 223, 3, 67, "Subsubsection"],
Cell[169744, 3757, 1359, 23, 50, "Subsubsection"],
Cell[171106, 3782, 2373, 51, 103, "Subsubtitle"],
Cell[173482, 3835, 771, 11, 67, "Subsubsection"],
Cell[174256, 3848, 2253, 54, 202, "Code"],
Cell[176512, 3904, 2237, 54, 222, "Code"],
Cell[178752, 3960, 89, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[178878, 3967, 5591, 94, 53, "Subsubtitle"],
Cell[184472, 4063, 478, 7, 35, "Subsubsection"],
Cell[184953, 4072, 3010, 50, 35, "Subsubsection"],
Cell[187966, 4124, 3498, 61, 53, "Subsubtitle"],
Cell[191467, 4187, 771, 11, 35, "Subsubsection"],
Cell[192241, 4200, 5176, 90, 104, "Code"],
Cell[197420, 4292, 5225, 91, 114, "Code"],
Cell[202648, 4385, 190, 4, 35, "Subsubsection"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)